
************************************************************************************************************
**#							FIGURE IA-1: PAY RATIO HISTOGRAMS BY YEAR
************************************************************************************************************

capture cd "/Users/joshw/CEO Pay Ratio/Analysis/"
use "Data/Temp/dataset_main.dta", clear

*bin_ratio = CEO pay ratio truncated at 500 for the graph

******************************
*Panel A - Reporting Year 1
****************************** 
histogram bin_ratio if(sample_yr==1), percent ytitle(Percent of Sample) xtitle(CEO Pay Ratio) scheme(s2mono) graphregion(color(white)) ylabel(0 "0%"  5 "5%"  10 "10%" 15 "15%") xlabel(0 "0"  100 "100" 200 "200" 300 "300" 400 "400" 500 "{&ge}500")  bcolor(dknavy) barwidth(14)
graph export "Output/Tables/RF/FigIA1_pr_histogram_yr1.png", as(png) replace

******************************
*Panel B - Reporting Year 2
****************************** 
histogram bin_ratio if(sample_yr==2), percent ytitle(Percent of Sample) xtitle(CEO Pay Ratio) scheme(s2mono) graphregion(color(white)) ylabel(0 "0%"  5 "5%"  10 "10%" 15 "15%") xlabel(0 "0"  100 "100" 200 "200" 300 "300" 400 "400" 500 "{&ge}500")  bcolor(dknavy) barwidth(14)
graph export "Output/Tables/RF/FigIA1_pr_histogram_yr2.png", as(png) replace

******************************
*Panel C - Reporting Year 3
****************************** 
histogram bin_ratio if(sample_yr==3), percent ytitle(Percent of Sample) xtitle(CEO Pay Ratio) scheme(s2mono) graphregion(color(white)) ylabel(0 "0%"  5 "5%"  10 "10%" 15 "15%") xlabel(0 "0"  100 "100" 200 "200" 300 "300" 400 "400" 500 "{&ge}500")  bcolor(dknavy) barwidth(14)
graph export "Output/Tables/RF/FigIA1_pr_histogram_yr3.png", as(png) replace

******************************
*Panel D - Reporting Year 4
****************************** 
histogram bin_ratio if(sample_yr==4), percent ytitle(Percent of Sample) xtitle(CEO Pay Ratio) scheme(s2mono) graphregion(color(white)) ylabel(0 "0%"  5 "5%"  10 "10%" 15 "15%") xlabel(0 "0"  100 "100" 200 "200" 300 "300" 400 "400" 500 "{&ge}500")  bcolor(dknavy) barwidth(14)
graph export "Output/Tables/RF/FigIA1_pr_histogram_yr4.png", as(png) replace
